
% $Id: H2PES.m 12 2015-03-05 19:17:39Z wangsl2001@gmail.com $

function [ V ] = H2PES(r)

R = zeros(size(r));
R(:) = 100.0;

V = H3PES(r, R, r+R);

return
